       IDENTIFICATION DIVISION.
       PROGRAM-ID. TS000001.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           COPY CBUC0002.
           COPY CBUC0001.
           COPY CBUC0003.
       01  SAMPLE01 PIC X(8) VALUE "SAMPLE01".
       01  A PIC 99.
       01  B PIC 99.
       01  RES PIC 99.
       01  EXPECTED PIC 99.
      
       LINKAGE SECTION.
           COPY CBUC0000.
       PROCEDURE DIVISION USING CBU-ctx.
           MOVE 1 TO EXPECTED.
           MOVE 3 TO A.
           MOVE 2 TO B.
           CALL SAMPLE01 USING A B RES.
           MOVE "SAMPLE01 (3,2)=1" TO CBU-ASSERT-NAME.
           SET CBU-ASSERT-EQUAL TO TRUE
           SET CBU-ASSERT-INT TO TRUE
           MOVE EXPECTED TO CBU-ASSERT-EXPECTED-INT.
           MOVE RES      TO CBU-ASSERT-ACTUAL-INT.
           CALL CBU-assert USING CBU-ctx CBU-ASSERT-CALL-INTERFACE.
           GOBACK.
      